program test_statements;
var
    i : integer;
    b : boolean;
    sum : integer;
begin
    b:=true;
    if b then 
        i:=1
    else
        i:=2;

    for i:=1 to 2 do sum:=sum+1;

    while i<=3 do 
        begin
            sum:=sum-1;
            i:=i+1;
        end;

    case i of 
        1:writln('1');
        2:writln('2');
        end;
        
    repeat i:=i+1;
    until i>5;

    goto 3;
    3:
    i:=0;
end
.